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14-Sep-1984 1 DT.SRCJCHMGCOUNT .BLI; 
ZTITLE “EDTSCHMG 
MODULE EDTSCHMGC y ae) 
ENT = ‘v04-000' ! File: CHMGCOUNT.BLI Edit: JBS1005 | 
- 
!* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 


10 | 5 
EDTSCHMGCOUNT = Look for a repeat or entity cou 1b-Sep-19 4 ¢ 30333 ite Bliss-32 V4.0-742 Page  1' 
:22: E T.BLI;1 ) 
COUNT = Look for a repeat or ite i count' 
ey ( ' Look for a repeat or entit “ie 
) 
BEGIN 
i eee eeeeReeeKeeeeeeeeeeeeHeeeeKeeeeeeeeeeneeeeeteeeeeeeeeneeneeeeeeeeereeeeer 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
's ALL RIGHTS RESERVED. 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH htt AND WITH THE 


® 
* 
* 
® 
® 
® 
® 
® 
' * 
ie TRANSFERRED. 
'® « 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. : 

® 

® 

* 

*® 

® 

® 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


te 
VRE ERE EERE REAR ERRATA EREREEEEEE 
! 


le4¢ 


FACILITY: EDT == The DEC Standard Editor 
' ABSTRACT: 


i 

i 

i 

} 

This module looks for a repeat/entity count. | 
: ENVIRONMENT: Runs at any access mode - AST reentrant 
: AUTHOR: Bob Kushlis, CREATION DATE: Unknown | 
; MODIFIED BY: | 
i 
i 
i 
i 
i 
i 
ls 


So 
S 


0044 1-001 = Original. DJS 04-Feb-1981. This module was created b 
0045 gatrecting the routine EDTS$CHK_CNT from module CHANGE.BLI. 
Bes 1-002 - Regularize headers. JBS 02-Mar-1981 


1-005 = Don't allow repeat counts greater span 32767. JBS 10-Mar-1982 
“Ju 
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0048 1-004 = Change numeric test. yh - 
sie 1-005 = Add conditional for VT220 support. JBS 11-Feb-1983 
0051 
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Declarations 3 a oe iS Sep $3:32 ; Y Bliss-32 V4.0-742 


4-Sep-1984 731 EDT. SRCJCHMGCOUNT.BLI;1 
XSBTTL ‘Declarations’ 


; TABLE OF CONTENTS: 


REQUIRE "EDTSRC:TRAROUNAM'; 


FORWARD ROUTINE 
EDTSSCHK_CNT; ! Look for a repeat/entity count 


; INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 
LIBRARY ‘EDTSRC:SUPPORTS'; 


i MACROS: 

} NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 

NONE 

EXTERNAL REFERENCES: 
: In the routine 


eee) 


99 


0 
0 
0 
0 
04 
0 
0 
0 
0 
0 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
4 
4 
4 
4 
4 


Wwr—o 


PWN 0 OONO VEINS OONOAU EWN“ OODNOAUE WN OOONOu 


10 
HMGCOUNT = Look for a repeat or entity cou 15-Sep-1984 $333 3 
CHK_CNT = Look for a repeat/entity count 14-Sep-1984 12:22:31 EDT. SRCJCHMGCOUNT.BLI;1 


7: AX-11 Bliss-32 V4.0-742 


ZSBTTL "EDTSSCHK_CNT = Look for a repeat/entity count’ 


GLOBAL ROUTINE EDTSSCHK_CNT ( ! Look for a repeat or entity count 
COUNT ! Where to store count 


+e 
FUNCTIONAL DESCRIPTION: 


This routine looks for a repeat/entity count, and stores it in the 
formal parameter COUNT. 


FORMAL PARAMETERS: 
COUNT Where to return the value of the count 
IMPLICIT INPUTS: 
EDTSSA_CMD_BUF 
IMPLICIT OUTPUTS: 
EDTSS$A_CMD_BUF 
ROUTINE VALUE: 
A value of 1 is returned if an explicit count was seen, 
0 means no explicit count, COUNT retains its value, 
2 means the count is invalid. 
SIDE EFFECTS: 
NONE 
BEGIN 


EXTERNAL . 
EDTSS$A_CMD_BUF ! Command string pointer 


UPPORT_VT220 


RIF S 
THEN 
er EDT$$B_CHAR_INFO : BLOCKVECTOR (256, 1, BYTE] ! Information about characters 


OCAL 
RET VALUE, 
HAR ° 
L_COUNT; 


L_COUNT = ..COUNT; 
CRAR = CHSRCHAR (.EDTS$A_CMD_BUF); 
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MGCOUNT = look for a repeat or entity cou 18-Sep-19 
K = look for a repeat/entity count 14-Sep-19 


IF SUPPORT_VT220 
THEN 


Be §3:22:3 


IF (.EDT$$B_CHAR_INFO C.CHAR, 0, 0, 8, 0] NEQ %X'FO") 


IF ((.CHAR LSS %C'O") OR (.CHAR GTR %C'9')) 
THEN 


RET_VALUE = 0 
ELSE 


RET_VALUE = 1; 
L_COUNT = 0; 


UPPORT_VT220 


WHILE ((.EDTS$B_CHAR_INFO C.CHAR, 0, 0, 8, OJ EQL %X'FO") AND (.RET_VALUE EQL 1)) DO 


WHILE (((.CHAR GEQ %C°O") AND (.CHAR LEQ %C'9")) AND (.RET_VALUE EQL 1)) DO 


BEGIN 


IF (.L_COUNT GTR 3276) 


RET_VALUE = 2 


IN 
OUNT = .L_COUNT*10 + .CHAR = %C'0'; 


LC 
CRAR = CHSA_RCHAR (EDTS$SA_CMD_BUF); 


IF ((.L_COUNT GTR 32767) OR (.L_COUNT LSS 0)) THEN RET_VALUE = 2; 


.COUNT = .L_COUNT; 
RETURN (.RET_VALUE); 


003C 00000 


of routine EDTSSCHK_CNT 


- TITLE 
- IDENT 
-EXTRN 
~PSECT 
-ENTRY 


AX-11 Bliss-32 V4.0-742 
EDT.SRCJCHMGCOUNT.BLI;1 


EDTSCHMGCOUNT EDTSCHMGCOUNT - Look for a repeat 
or entity cou 


EDTSSA_CMD_BUF, EDT$$B_CHAR_INFO 
_EDTSCODE ,NOWRT, 
EDTSSCHK_CNT, Save R2,R3,R4,R5 


10 
EDTSCHMGCOUNT EDTSCHMGCOUNT = Look for a repeat or entity cou 18-Se 1984 23:57:35 AX-11 Bliss-32 V4.0-74 Pa 
Oa e000 EDTSSCHK_CNT = Look for a repeat/entity count 12-88-1986 $3335: 33 EDT. SRCJCHMGCOUNT.BLI; “et ad 
5 00006 9E MOVAB EDTSS$B_CHAR_INFO, R5 3 
4 a090000 G 86 9 85 MOVAB EDTS$A-CMD_BUF, R4 : | 
0 4 BC D 10 MOVL acOUNT, L_ COUN : O7tg 
1 64 p 14 MOVL. EDTSSA_CMB_BUF, R1 3 0713) 
2 61 9A 00017 MOVZBL (R1) : | 
FO «BF 6542 94 1A CMPB EDTS§B_CHAR_INFOLCHARI, #240 ; 0718 | 
0% 1 O1F BEQL 4 
3 D4 00021 CLRL = RET_VALUE ; 0726. 
42 11 000 ; BAS 6$ ; 
53 01 DO 00025 1$ MOVL #1, RET_VALUE ; 0729) 
50 D4 00028 CLRL = L_COUNT : 0730 
FO OF 6542 91 S A 2$ CMPB EBTS$$B_CHAR_INFOCCHAR], #240 : 0735 
12 F BNEQ 6$ 3 
01 D1 00031 CMPL RET VALUE, #1 ; 
1 12 00034 BNEQ 6 ; 
OOOOOCCC = BF 50 D1 00036 CMPL , COUNT, #3276 ; 0743 
05 15 Baer BLEQ $ 3 
53 02 DO 0003F MOVL #2, RET_VALUE 3 0745 
17 (11 b00%e BRB 4$ : 
51 50 OA §° 0044 3$ MULL3 #10, L count R1 ; 0748 
50 DO A241 SE 00048 MOVAB -48(CHAR)CR13, L_COUNT : 
64 D6 00040 INCL  EDT$$A_CMD_BUF : 0749 
51 64 D0 0004F MOVL EDTSS$A_CMD"BUF, R1 : 
52 61 9A popes MOVZBL (R1), CHA ‘ 
QOOO7FFF BF 50 D1 00055 4$ CMPL , COUNT, #32767 ; 0752 
04 14 0005C BGTR $ 3 
50 D5 9005 TSTL L_COUNT r 
C8 18 0006 BGEQ 2s : 
53 0 DO 00062 5$ MOVL #2, RET_VALUE : 
C3 11 00065 BRB 2$ ; 0735 
04 BC 50 00 00067 6$ MOVL L_COUNT, @COUNT ; 0758 
50 53 DO 00068 MOVL RET_VALUE, RO : 0759 
04 0006E RET ; 0760 
; Routine Size: 111 bytes, Routine Base: _EDTSCODE + 0000 


0761 1 
0762 1 !<BLF/PAGE> 
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EDTSCHMGCOUNT EDTSCHMGCOUNT = Look for a repeat or entity cou 14.50 =1984 23:57:35 Ax-11 Bliss-32 V4.0-742 Pa 
04~000 EDISECHR CNT = look for a repeat/entity count 12-8ep-19 4 93335533 EDT. SRCJCHMGCOUNT.BLI;1 = 
> 194 0763 1 END ! of module EDT$$CHMGCOUNT 
i 198 0764 } of module E GCOU 
; 196 765 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
: _EDTSCODE 111 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
: eecocesee Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 0 0 40 00:00.2 
; ~$255$0UA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
> 7$255$DUA28:CEDT.SRCJSUPPORTS.L $2; 1 2 1 50 5 00:00.1 


COMMAND QUALIFIERS 
rot A ca pat a ctl alte ataenaantat nectar tata eee MSRC$: CHMGCOUNT .BL1/UPDATE=(ENH$:C 


Size: 111 code + 0 data bytes 
Run Time: : 

Elapsed Time: 00:15.5 
Lines/CPU Min: 3 $6 
Lexemes/CPU-Min: 11357 
Memory Used: 73 pages 
Compication Complete 
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